data(example3)
sym.data<-example3
display.sym.table(sym.data)
sym.scatterplot(sym.var(sym.data,1),sym.var(sym.data,4),col='blue',main='Main Title')
data(oils)
res<-sym.interval.pca(oils,'centers')
sym.scatterplot(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
labels=TRUE,col='red',main='PCA Oils Data')
sym.scatterplot3d(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
sym.var(res$Sym.Components,3),color='blue',main='PCA Oils Data')
sym.scatterplot.ggplot(sym.var(res$Sym.Components,1),
sym.var(res$Sym.Components,2), labels=TRUE)
sym.circle.plot(res$Sym.Prin.Correlations)
res<-sym.interval.pca(oils,'classic')
plot.PCA(res,choix="ind")
plot.PCA(res,choix="var")
data(lynne2)
res<-sym.interval.pca(lynne2,'centers')
sym.scatterplot(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
labels=TRUE, col='red',main='PCA Lynne Data')
sym.scatterplot3d(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
sym.var(res$Sym.Components,3),color='blue', main='PCA Lynne Data')
sym.scatterplot.ggplot(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
labels=TRUE)
sym.circle.plot(res$Sym.Prin.Correlations)
Run the code above in your browser using DataLab